10 PRINTCHR$(147):IFPEEK(772)=124THEN30
15 IFPEEK(772)=141THENPRINT" FC-III ERKANNT[154]":FORT=1TO1000:NEXT:PRINT"[147]":GOTO30
20 REM PRINTCHR$(19)"RUN "CHR$(34)"CP-LOAD.128":POKE842,19:POKE843,13
21 REM F$="LH"+CHR$(13):FORI=1TO3
22 REM POKE843+I,ASC(MID$(F$,I,1)):NEXT:POKE208,5:END
23 PRINT"[153]SORRY![146]: C128[146]-LADER WAR NICHT AUF DER    ORIGINAL-DISK... :( ":END
30 PRINTCHR$(19)"LOAD "CHR$(34)"CP-LOAD.64"CHR$(34)",8"
40 RN$="RUN":PRINT""
50 PRINTCHR$(145)RN$CHR$(19);
60 F$=CHR$(13)+CHR$(13)+"LH"+CHR$(13)
70 FOR I=1TO5:POKE630+I,ASC(MID$(F$,I,1)):NEXT:POKE198,5:END